home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 18 / AMIGAplus Sonderheft 18 (1999)(ICP)(DE)[!].iso / PD / Anwendungen / PDHFIC_2.5 / ARexx / SaveSCR.pprx < prev    next >
Text File  |  1999-01-04  |  851b  |  46 lines
  1. /* PDHFIC Saver for Personal Paint */
  2.  
  3. /* $VER: SaveSCR 1.1 (27.09.98)
  4. */
  5.  
  6. /** ENG
  7.  SaveSCR for PPaint/PDHFIC
  8.  
  9.  By Chris Young 1998
  10.  
  11.  This (very) short script will allow you to save pictures from PPaint into
  12.  any Spectrum format supported by PDHFIC 2.0 or higher.
  13.  
  14.  PDHFIC must be running for this to work.
  15.  
  16. */
  17.  
  18. if ~show(ports,'PPAINT') then do
  19.     ADDRESS COMMAND 'requestchoice >nil: "LoadDT.zxam" "PPaint is not running!" "Oops."'
  20.     exit
  21. end
  22.  
  23. if ~show(ports,'PDHFIC') then do
  24.     RequestNotify '"PDHFIC SaveSCR" "PDHFIC is not running!"'
  25.     exit
  26. end
  27.  
  28. ADDRESS PPAINT
  29. OPTIONS RESULTS
  30.  
  31. LockGUI
  32.  
  33. RequestFile '"Save SCR as..."'
  34.  
  35. savename = result
  36.  
  37. SaveImage 'FILE t:pdhfic.tmp FORMAT ILBM'
  38. /* PBM & resize if poss  OPTIONS "AUTO=0" "BINARY=1" */
  39.  
  40. ADDRESS PDHFIC 'QUICKCONVERT "t:pdhfic.tmp" ' || savename
  41.  
  42. ADDRESS COMMAND 'delete >NIL: t:pdhfic.tmp'
  43.  
  44. UnlockGUI
  45.  
  46.